home *** CD-ROM | disk | FTP | other *** search
/ Aminet 41 / Aminet 41 (2001)(Schatztruhe)[!][Feb 2001].iso / Aminet / comm / misc / 2b_Haracz.lha / Haracz / Rexx / openfile.haracz next >
Text File  |  2000-09-03  |  330b  |  27 lines
  1. /*
  2.  
  3. openfile.haracz 1.0  (14.09.1999) BLABLA PRODUCT
  4. (c) Misto/BlaBla  Michaî Stochmiaîek
  5.  
  6. This scrypt opens file.
  7. ex.
  8. rx openfile.haracz miami.log
  9.  
  10. */
  11.  
  12. options results
  13.  
  14. IF ~SHOW('P', '2B_HARACZ') THEN 
  15. DO
  16.     SAY "Haracz isn't running... bye"
  17.     EXIT 0
  18. END
  19.  
  20. ADDRESS '2B_HARACZ'
  21.  
  22. SAY "Opening file..."
  23. PARSE ARG file
  24. OPEN file
  25.  
  26. EXIT 0
  27.